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NATIONAL 0S9 USER GROUP NEWSLETTER 



EDITOR : Gordon Bentzen 

HELPERS : Bob Devries and Don Berrie 

SUPPORT : Brisbane 0S9 Level 2 Users Group. 



The National 0S9 group continues to grow. As each month passes m are gaining new iTiembers at the rate of tm^ 

three or four each inonth. It does seem that this operating system has a growing number of followerst it certainly 

deserves to have. 0S9 offers to us rnany very powerful featuresj such as sharable devices^ files and modules, plus 

multitasking etc. but then you have heard all this before haven't you, so let's get back to the National 0S9 user 
group for a ffloment. 

With new mejabers joining each nionth we are faced with the question of subscription expiry dates, what should they 
be ?? As many of you would be aware, we elected to provide a JULY '88 newsletter from our cwn funds to give you a 
sample of the new National 0S9 Newsletter, this was extended to also provide a copy for AUGUST 'SB. The result is 
that the majority of your subscriptions were then treated as commencefnent ist. September} and this made things 
pretty easy to keep track of. The fact that some newer members have asked about backcopies has prompted some 
further thought on this delicate problem. To cut a long story short, we have elected to provide back copies to ail 
current members so that we can still work on a common expiry date of 31st. AUG '89. This means that all current 
members will be entitled to a copy of the monthly newsletter commencing from SEPT 'SB. 

A copy of the July and August '38 editions Lttiii also be provided so that all will have the ccplete set as it were. 
This will ir»ean some reprinting which is currenty being organised. We do expect some delays here, so ycu should 
receive this December edition prior to any back copies due, but don't worry all should be mailed well before the 
end of January. 

With the year of 1988 very rapidly drawing to a close, many of us will have thoughts of Christmas celebrations, a 
holiday away from the work place or the normal routine but we will also be preparing plans to carry us into a brand 
new year. As you would expect, some of this will affect our Newsletter, and the first is that we are planning 
material for our FEB 19B9 edition. Yes you'e right, there will be not be a JANUARY 1989 edition. 

Now the Good News! We are able to bring you a new article on 'C thanks to Ross McKay who has sent in a very 
interesting article "Making the Most of Microware C - Part I" The receipt of this material from — Roskoi— caused 
the total disruption" of one of our newsletter planning meetings. It was a case of MUST READ before we did anything 
else. We are sure that this will interest many of our readers as well, and we can't wait to see a Part II. This is 
great material Rosko, many thanks for sharing it with us. 



MERRY CHRISTMAS and a HAPPY, SAFE & PROSPEROUS ICW YEAR to ALL 
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flicroiiiore'b C CGiiipiler for 03-9/6327 ^as ^ade at a oudgei price for budgst sybtEiTiS, -er Qe=ignsd to taKE 

-. M-, f ^. n *+■ "■ -^ ^ -"^ "^ -:*Kr:i I— ..— .utr^v^ "T I 1 i i--— [iilQ ■' -i* y. ^ f. £/ ^ t- r^ ;-f»,£^.— ■■^.-'i ".-'..— T-. ' "S". T — rr,.— . - ^, ^ ^ k -. ^ -^ .■^^.r-i,-; .— .^:».b-.i ■; .— ,'j^. ;.t-.^ .t. -. /-r.— . -.-.?*.■; ■. -. r^ : .— . -. -f- --T\ 

□ uvcn-.E'it '_') Lfic .^L-'UicT lui ;_'Oi.' .' t 1 iiaihr^z- ■. u l'-hIdcz :■ :-i_-ivu=-n .■ » ::iiz- ;=ica!; ■- '.r-CiL a ^uijj i_w;ii^iiC! i'cb ■■in*iJ= :ivai*CJiJic ol zii 

af forddDiE price. What ii also iiieani li^as :r;at nicrouiare couldn't afford tc tak& too Tiucn ti;ne on -ne C library, zo 
theu ;ijrDts ail of the systeimncBpsndant stuff :n C, and mET) they ported the C coiiiPiiPr to OS-9/6S20g they l?ft 
thib m C, 

Nouj don't get "se -i^rcng, I have nothing against C generally, otheryise I Ujouldn't use it sc iTiuch. C co^Jipilers 

zilii ;-^! OuuLtf 'la'-nii-t --Gud pF -j-^rdHlbi uu i. w.-cy ^-mi . iir-zt'Li-j! i_ufuc .i;rii\.en i.-i •.iHni. azzd)(;ui-j :^--ir,--iUa--j^ : ui ■ a!i' zj-'EeG 

1 T-. rrj- 4- n TT^3¥^ +- 1 — .T". .— i-L J— Ij^ .— T -n m i :^3 '^i J ■"■ ^ -i- Kc -i-i i f, .— ^ t nT-. .— - ^, -^ ^. q i ' 1 -: H*jl :j »JM i -■ ■," D i : f— !-i H n "i- ■*■ r-i tt. ■; <-i r^ lA f^ j-i ia -. rr, f- -. t-l ri ■*- ^. r^ t vi 

•ftQl vU iiicil -. j.i_-ii -^Uuc zrXiS.'m iidi!J =-.1 vi't :• '_i;i\_i. 1UHZ- ii! ■-■iir \.- iiijidii zf " Liz-wU !-■ i lCh iii -j yi GJi niiibi ai.'u ..;cij 

efficiency can greatly affect the efficiency of tns ?rr:q-riUiS using theni. So I set out to disc 
innting C library functions m assefTidly language... and discovered that it really is quite easy! 



sncuid heedi 

1. 6339 C reserves registers U, V and 3 so you ??^ust restore thefT: to their initial values on return (RTS) if you 

mOuiij ■.:■!£:-;!. i-iKe-Jjiz-e :■ ur Oui.'i.-'iJ ■_• JJ..:-! i,'^ :.-i'-r',^ r', ; , 

-L, it you ^f""^ going to reiiirite existing i; ; unctions, ycu must reyrite any additional "uncticns associated ^jith 
ttieni m tne •.■ iiorary... t;ie iiurary is grouped into n'tOduies, you can exaiTiine tnefn using rouiiip'; vro^t' sxaiTipie 
5ii the standard string tunctions^ inciuomg strienw, strcpyu, strcat\) ano strci;!p(.^ are m one ^iOuUiS;. ^t 
you just liiant to try SDrrtetriing out, use a different na^ne. 

OK, so noii* li^s nave tiie Tabu's out of the ^;ay, hoii; does our asserrfoler function receive arguiisents" If uie ^rite a 

l-jaSz-Bu jn -.jic zi.ci'._r-., Z'J l tia i ^j;iidil d i u.-;i_ >. iL.';; iz- i-Dr", ru lu', i •, h.-,cCls i.ez- =i'i':.n .j :-jOi h l i hh ^G L:;:^ re'-Utn ziuurrz-3, ■_• ■ i. 

to the first argunsent, and so on. It does this Dy pusning argu^ients last-tD-first onto the stack before calling the 
function. 

egi. funcurgl) produces a stack like^ 

T argi LSB 1 3,S 

i RTS addr L3Ei 1,3 
S -> ; RTS addr rlSE; 3,S 

Note that C handles everything at ujord-size, i.e. 2 bytes for tne 6S39, except aith long integers (4 dytes) and 
doubles (8 bytes). 

In 6S009 Ct decause there are SOOO Mny registers, the first 3 bytes of the arguiiients ^t'e. passed in registers 
DB/Di, and the rest en tne stack in '^^u^ saiije fashion as 6339 C (but ;i)Grd size is 4 dytes). For the above e>!afijple, 
the argument utouid be passed m D0. The exceptions are doubles, iuhich are Possed on x\\^ stack. 

To access arguments on the stack, you offset the stack pointer by the ujcrd size (2 bytes 6S09, 4 bytes 66200) 
to allow for the RTS addressT plus the nuiTider of bytes for preceding arguiTients. For the above e>:aiT!Piei on the 6809 
you >^ould LDD 2,3 to load the luord 2 bytes above the bcttoirf of v:\2 stack. If xXs^^e iuere 4 integer arguffients, to 
access the 4th argument you wGuld LDD 3,3 (6809) or rlOVE.L 16(SP),D0. Note that if ycu change the stack pointer ^x 
ail, for exai-spie by pushing registers (PSHS or MOVE.L ,,,,-(SP)) or by allocating stack space for variables, you 
Trfust change the offset to argufiients accordingly. For exaiTi?le, on the 6809 if you PSHS U and njant to access the 
first argument, it is now at 4,3. 
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That ncuf lets us p^sb an arguntenti but uihat aoout f-ETurninq an ans^jer^ C ailoys only chb return value ?er 
function, ana it inust be in one af the basic data types (mt, long, pointer, aoubleic This is sg that return values 
can be put mtc xh& default data register. On X^q 63032, all return values are rEturned m D2 except acubles iiinich 
are returned m D3/D1. On the 63S9, int and pointer arQuirjents are returned m D, but dcuDles and longs iT9 ^unny; 
they are returned on ths stack, i^ith a pointer to then? returned in X. Note that C converts arguments of type cnar 
and short to int, and float to dcubie. READ LAST SENTENCE AGAIN. 

OK, nouf ii;B knoiu enough to lurite a C function, Sontething easy is m ^Q^r to degm iijith, so lets iijrite a 
function to get the length of a string. lengthO is passeo a pointer to a string, teri^mated ^Jith a NULL ^S), and 
returns as an integer the length of the string. It's really a clone of strien, 

* 6839 version 

* mt length (s) char *5; 

psect length_a,3,3,S,i3,i3 
length: ld>; 2fS get pointer in )! 
lengthl tst ,>!-^ look ror NULL 

bne lengthl 

li-i-.w _* -.1 .-ir-.i- ,' -t- ,-mi-n^ +ka i".;! ij ! 

iCa/i i I /i UUii ■-. UUUlli. LJIC r-»Vi_i_ 

tfr x,d get end address in D 
subd 2,5 subtract start address 
r L i 
endsect 

* c33S0 version 

* mt length (s) char *5; 

psect lenqrh,a,3.3,3,3,3 

length: iricvea.l d3,a3 get pointer m AS 

lengthl tst.d (aS)^ look for NULL 

bne.s lengthl 

subq.i #l,a3 don't count NULL 

sub.l did^6^ subtract end front start address 

neg.l d0 get sign right 

rts 

endsect 

Type m the version for your niachine, and save it in a file called length. a. To use it froin a C prograni, you 
just call it lijith 



>; = lengtri (str pointer) 



as you iifouid to call strlenO, and compile your C program ^^ith the follouting syntax, assurrfing fred.c 

cc fred.c length. a -f=fred 
(OS-9/6309 users use ccl or cc2 if you haven't patched the cojspiler yet :-) 

i^eil, Tei thoroughly sick of typing noij, so bye till next tifue. 

— Rosko 
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STARTING OUT VITH 0S9 
Nodifyiag yottr systti disk. 

For lost peoplt, this steis to be i daunting tisk it the best of tiies. Hon do yon do it ? Dell, the inforiation is 
risht there in the iinaal. Of coarse, IMl idiit to there being other and perhaps easier Mys to do the saie thing. 
Host people noN-a-days Hoald at least like to set up their 0S9 for different disk drives. Let le say at the start 
of all this that I Hill be referring to tNO-disk systeis only. To use 0S9 on anything less is nothing less than 
eicruciatingly painfal, especially in the lodification stage. If you don't have tm disk drives, then try to get 
together Mith soie-one Nho has, and please try to get another one yourself. 

One of ly lain probleis noH is to keep referring to both the Level One and Level Tnd 0S9 systeis. I'll start out by 
talking about the Level One systei briefly, ftost lodifications for Level One are at the grass-roots level, in that 
le would need to lodify the device driver 'CCDISK' and the device descripter 'DO* and 'Bi' using the prograne 
'DEBU6'. This is a fairly lengthy process and outside the scope of this part of ly series. I will address this 
problei in the near future hoMever. Suffice it to say, that if you have been subscribing to 'The Rainbow' froi the 
USA then a patch file for laking 'CCIISK' into doable sided appeared in the October '88 issue of that lagaiine 
under the naie 'DiskFix' and 'ForiatFix'. These files are coiplete, and save the lodified Kdules to your current 
data directory. If you then replace the original file 'CCIISK.DR' in the Hdules directory of the Level One disk, 
you can run the 'Config' progruie to create a new disk. Don't forget to lodify the device descriptors as well, 
ftore on that later. 

I lill now refer exclusively to Level Two systeis. The second of the two disks contains a directory called 
'KODULES'.In it there are all the nKessary drivers and descripters to create a new systei disk. The easiest (and 
slonest) way to create the new systei is to foriat a disk for 33 track single sided and ise it to produce a new 
boot disk with the new disk drivers on it. Use the 'Config' prograne to install thne. For those of yo« with iZ8K 
CoCo 3 lachines, you will probably get an error when the config tries to call the '0S96en' prograne. BONT PANIC ! 
This is not ai irretrieveable situation! Vhen you get this situation, type this line:- 

OSTSEIt m </DO/tlODULES/BOOTLIST 

This will rerun the saw conand that Config was trying to do when it ran out of leiory space. Vhen running by 
itself, it has enough iHory to coiplete its task. 

Now you have a 35 track disk that has 40 or 80 track descriptors on it. Don't worry! They are coipatible, as a 
higher track size descripter can read the lower track size disks. This is all done in the 'CC3BISX' device driver. 
Vhen you boot up 0S9 with this disk, you will be able to fonat a disk with your specified niiber of tracks and 
sides. Vhen you have done that, it is an easy task to use the conand 'COBBLER' to pit your current boot on this 
new disk. Just type 'COBBLER /Bi' and there you are, a disk with the OS9Boot file on it. Now you can copy all your 
files froi your boot disk onto it. An easy way to do this is to type this conand :- 

DSAVE /BO m ! SHELL 

After soie tiie all your files will be transferred froi your source to your destination disk. Oh, by the way, it'll 
look like the coiputer is giving itself conands, which is exactly what dsave does do. 

Of course, there are going to be soie questions about all this. I an going to anticipate at least one of these, and 
that is 'where is the 80 track descriptor for drive /BO ?'. Veil you're right there isn't one, we'll have to uke 
one. Unfortunately, this will require the 'save' conand (not on the Level Tho disksl and the lodpatcb conand 
(which is). For those of you who have access to the Level One 'save' utility, you lay safely use it. Those that 
don't, it is available on the 0S9 developient disk. You could also probably arrange soiething through this or your 
local user group, (Ring le or drop n a line if yon get into trouble) 



Now first of all, these conands lust be in leiory beforehand ! 

SAVE for saving the new Mdule, and 
HODPATCH to lodify the old one. 
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So firstly type LOAl SAVE HOOPATCH 

You'll iee4 to save the neN M^vle onto tke i\s>k ii drive /ll because you'll be ckiA9iR9 the descriptor for drive 
/dO and I doi't thiik 0S9 Nould like tkat. Hon m get to tke patckiag part. Type tkese coMaads exactly as tkey are 
kere:- 

■odpatck 
I dO 

c 14 00 03 
c 16 01 03 
c 17 23 50 
c 19 01 02 

V 

NoN press CTRL aid BREAK togetker. You'll lotice tkat lodpatck echoes soie of your characters back at you, tkis is 
Rorial. Hon it is tiie to save tke lodule. type tkis.'- 

SAVE /dl/d0.80d.dd dO 

Ukei this is fioished, reboot the systei, copy the neN lodule into the Mdiles directory of the 12 disk and 90 
through the first part of this section to create the 80 track bootable disk. By the nay, tkis disk iiill be bootable 
froi disk basic. Hake sure your drives are set for 80 track Norking if they're sNitchable. 

So noN you have a systei Nith the disk drivers to your satisfaction. If there are any questions, please feel free 
to ring m or drop le a line, and I Hill try to ansiier your questions. 

Bob levries. 



ReadiA9 Logical Sector Zero (LSNO) 

Vhilst in conversation nith Bon the other day, I felt the need for a prograne to print out the contents of the 
first part of the first sector of the disk (L^O) along nith a short explanation of uhat the nuibers all lean. So, 
I spent a fen hours Nriting a prograne in C (can't you see its ly favourite ?) to do just that. And after a 
■oderately long debugging session (the coipiler and I didn't agree on hoN to print hexadeciial) I caie up nith this 
prograiie Nhich I called LSNO. 

The conand line foriat is LSNO /devicnue 

If you get it Nrong, it'll jog your leiory to do it right. 

The source for the prograne is on the folloning pages. Mostly it just opens the disk as a file, reads a nsiber of 

characters froi it (that nuiber is set by the length of the structure ddsect) and then closes the file again. It 

then proceeds to print the titles for the data it retrieved, and the data in deciial or hexadeciial or string 
forut, whichever suits the need. 

The program tells you Mhat is printed in the Level Tmo nnual on page 9-2 of the 'OS? Technical Reference' 
section. It has the explanations in English instead of coiputer, and lay be of use to soie-one. 

Bob Bevries 
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tiBCluit (sUiD.h) 
•incline <direct.li> 

HHiOl SK { 

]oA9 Ausecf 
char tBK[4]F 
uisigned usee; 
}> 

lain (argCfirgv) 
int argcf 
char fargvn; 

{ 



int fp; 

struct ddsect diskf 
iit i, count; 
tiDiofi sec tot sec; 

pflinito; 

for (i=fji<4;iHl totsec.tsecCil ' Ml'; 

if (argc !» 2) 

{ 

useageO; 

exit(f); 

) 

if (argv[l][|] l^ '/') 

{ 

useagef); 

exit(f); 

) 

count 3 5trlen(argv[i]); 

for (i«l;i <« connt; U*) 

( 

if (argvClJIiJ « '/') 

{ 

fprintf(stderr,'l5 is not a device nue.\n\nVargvn]i; 

nseageO; 

exitffi; 

) 
) 

argvriJ[coufltH] = •§'; 
irgvdHcoaot] = '\l'; 

if ((fp = open(argv[l],.REAO)) -= EOFJ 

{ 

fprintf(stderr /Can't open Is for reading. \n\n',argv[llJi 

useagef J I 

} 
read(fp,ldisk,sizeof(diskJ); 
close(fp); 

totsec.tsecin = disk.ddJotJ]; 
totsec.tsec(21 = disk.dd.totni; 
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tot5ec.tsec[3] > iiskMJoillM 

priRtf (*\ii LSN f dfscriptioi of ls.\fl%ar9v[l])r 
priitf('\i\i Total luiber of sectors > XId.\i%totsec.iuisecli 
priitf (* SKtors per track » UM\iiskMJsk)\ 
priitf (' lytes ia allocatioa lap = k.\n-,disk.4d.aap)l 
priatf (' Clttster size = la.\n',tfisk,40it); 

totsec.tsec^n = 4isk.4Mirm; 
totfec.tsec[2] » disk.dd.dir^l]; 
totsec.tsec[3] = ii%kAiJifi2]\ 

pristf (' Address of Root Directory = Ud.\R'|tot5ec.attisec); 
printfC Onaer outber = tu.\B%disk.dd.0Ha)i' 



tatsec.tsecCf] ^ '\i'\ 
totsec.tsectl] = disk.dd.atti 

priatf (■ Attributes > Xff2X.\a\tot5ec.usecU 
printfC Bisk IB > fa.\a%disk.ddjsk)i 
priatf (■ Hedia forut > Id ',disk,dd.fit)! 
SHitch(disk.ddJit) 
( 
case I: 

priatf ('48 tpi SBSS.U'Jf 

break! 
case l: 

priBtf(M8 tpi SBBS.U'M 

breaki 
case 2: 

priatf ('48 tpi BBSS.U'M 

break; 
case 3: 

priBtf(M8 tpi BBDS.\b*); 

break; 
case 4: 

priatf ('96 tpi S])SS.\b'); 

break; 
case 5: 

priBtf('96 tpi SBDS.\a'); 

break; 
case 61 

priBtf('96 tpi B0SS.\b'M 

break; 
case 7: 

priatf ('96 tpi BBBS.U'); 

break; 
defailt: 

priatf (' Caa't identify foriat.\B'); 
) 

priatf (' SKtors per track (track f) = lu.\B',disk.dd.iptM 

totsK.tsec[|] « disk.dd.bt[f]; 
tBtsK.tsec[2] > disk.ddjtlll; 
totsec.tsec[3] > disk.dd.bt[2]; 
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printfC A^^ress of bootstrap file - lld.\B',totsec.iuisec)i 
priBtf (' Lensth of bootstrap file ' la',disk.ddj»sz); 
if (disk.ddjsz «^ i\ 

priRtfC No boot installed, \B"]i 
else 

priBtf{'.\B')i 

priBtf (' Creation date : U2d/Xf2d/U2d U2d:U2d.\B% disfc.ddjate[», disfc.dd.date[i], disk.dd.date(2], 
disk.dd.date[3], disk.dd.dateMJ); 
for ii-Bl i<32f nil 
{ 

if (disk.dd.RaieliJ < 0) 
{ 

disk.dd.Baieli] -= 128; 
disk.dd.Baie[Hi] = '\r\ 
break; 
} 
} 
priBtf (' Voluie Baie = Xs.UU'jdisk.dd.DaK); 

) 

usea^eO 
{ 

fpriRtf(stderr,'\B Useage: Isafl /deviceBaie\B\B'); 

} 



RUNNING A TERHINAL UNDER 0S9 : A TUTORIAL FOR THE COCO 

I guess, like aliost everybody else, yoa Hould at least like to see if it is possible to rii a teniaal on 
your CoCo. Yoti Nill bo doubt bave Boticed a ntibef of couaads iB the developwBt pack Hbicb are used for 
conunicatiOD. Specifically they are Tsion, and Lo9iB« But does it Hork? 

Veil yes it does, aBd quite mil. Tbere are howver, soie liiitatioBS, particularly Nben transferring files 
betueen lachines. HoMever that is an issue for later on. First, let's look at som different setups. 

Before He 90 any further, it really is a necessity to have soie type of genuine RS232 interface, either the 
so called Beluxe RS232 interface pack or equivalent. I believe that one of our wibers has developed his ovn 
version of that pack Nhich he lounts internally. Hopefully ue light be able to persuade hii to lake sdk of 
the hardNare available for sale, or perhaps to provide details so that mbers can lake their own. You nill 
NOT be able to use the CoCo's built in serial port at the back of the uchine. This leans that in lost cases, 
you Hill need a Hulti-Pak Interface as Hellf Still Hith us? 

If you do decide to try to use the built in serial port, you Hill find that it occupies so luch of the systei 
resources, that there Hill be aliost no processor tiie available to service any other processes. I really 
dor.'t knoH nhy Hicronare included the driver and descriptor for iU in the systei. 

Other requireients Hill be, a teriinal (obviously), a null-iodei cable, or a cable to your Mdei, and soie 
type of teriinal prograiie for the reiote teriinal. The Hiring of null-iodei cables and the like has been 
described in a nuiber of other publications, particularly the US Rainboi, so le Hon't deal Hith it her«. 

NoH to get the teriinal running, le need to have the proper driver and descriptor in leiory. (I use /T2 and 
ACIAPAK, but there is no reason nhy you can't use the /T3 lodules.) If you don't already have thei in leiory, 
it nakes sense to lerge thei into one file before you load thei so that they only Kcupy one 8K block. Use 
the coiiands : 
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Herge /lf/N0BlR.ES/t2.dd /If/NOBllLES/aciapak.ir >/0f/t2pak 
Attr t2pak e pe 
Load /S0/t2pai[ 

The next thing we need to do is to ensure the baud rates of both the teninal and the teniaal port set the 
saie. Yoa tiill have to set the baud rate for the teniial tsing whatever couuds are required in the 
teninal progru. In soie cases, it uy be hard coded into the prograiie (eg XC0I19). Set the /T2 baud rate by 
using the coiiand .* 

Xiode /T2 baud=x (where x is froi 1 to 7) 
(1 equals Zii baud ) 
(7 equals 19.2 Kbaud ) 

Once the baud rates are the latched, Ne are ready to start. 

In order for the teninal to be able to access the systei, ne need to give it som resources. Ve do this by 
starting a shell on the conunicatioas port. There are two nays to achieve this. Ve can use the Tsion cnund 
to do it autoiatically or ne can lanually start a shell by redirecting a shell to /T2. 

Tsion is started by the coiiand : 

Tsion /T2fc 

Once the process is started, it runs as a background task until it detects an incoiing <CR>. Vhen this 
happens, it nakes up, and inediately runs Login. Login then proipts the reiote teninal for a User Naie, and 
then for a PassHord. It coipares the answers given with those listed in the file /M/SYS/passNord, and will 
look for that file on the drive upon which the systei was first booted. In other words, for Tnon to function 
successfully, you will need to leave your boot disk in its drive. 

The obvious use for Tsion is to allow other users to log onto your systei by the use of an external ndn. In 
effect, a very siiple Bulletin fioard! A word of caution however. You will need to edit the /Bi/SYS/password 
file so that only those people that yon want to be able to access your systei can do so. It is particularly 
iiportant that you do not allow anyone to log on as User f, as there are no liiits to the actions of that 
user, even if logged on to the systei via /T2. (Including refonattiag disks, looking at personal lail files 
etc !!!). Be ultra careful if you have an auto-answer lodei! Also lake sure that the lore 'dangerous* 
coiiands do not have the public execute (pe) attributes set. 

The other way of starting a shell on /T2 is by the use of redirection. Try the following : 

Shell <»)/T21 or perhaps better : Shell i=/T2lc 

The first of these two coiiands will die when an EOF is sent, ud will have to be restarted again froi the 
keyboard of the host* The second will autoiatically restart on EOF. This Kthod of starting the teninal 
shell would be lost suitable when you have another user connected via a null-iodei cable. 

I regularly use ly XT clone as a teninal to ly CoCo running at 19.2 Kbaud, and it works really well. In 
fact, when running at that speed, the screen updates are wich faster than those of the CoCo. I also find the 
ability to log onto another users systei a great advantage, and Bob Bevries and I regularly use each others 
systeis via our lodeis. (It's a bit slow at 3ff baud, but it does work, and we find it lost convenient.) 

Next nnth, I will go further into the use of teriinals, particularly with reference to file transfer using 
the 0S9 version of Keriit. Until then, if you need any assistance, call le on (f7) 375 3236, or Bob Bevries 
on (17) 372 7816 and we will try to be of assistance. 
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CORRECTIONS TO ZAP 

After trying to run ZAP on a system with a 10 sB hard disk, a nusber of probleas arose. While the original 
proqratine does work, it is not particularly elegant in its treatsent of the reading of L5N 0, The following 
changes will fix the problea of reading a disk which has aore than 32768 sectors. (A 10 sB hard disk has aore 
than 39000 sectors*). Changes have also been incorporated to aake the prograiae aore elegant. 

You will need to aodify three aodules. Zap, Getsec, and Setdev. The changes Ar& all coaaented in the 
following listings, and the changes should appear BOLD in the final printing. 

PROCEDURE zap 
BASE 

DIM PABE,FATH,wpath,fgnd,bgnd,bord:EYTE 

DIM maxblock;REAL it aaxblock needs to be a real value to allow for t) 
Din ident,x,y,xl,yi; INTEGER (t hard disk sector nuabers t) 
DIM title:3TRIN5[40] 
DIM CHOICE:STRINb[253 



PRINT Swpath," Version 1 .11 88/11/25" i» Change version nueber and date t) 
PRINT twpath, 

PRINT Iwpath/tl USE KITH CARE - PERMANENT CHANGES TO DISK STRUCTURE CAN BE MADE fit" 
PRINT Iwpath, 

RUN getdevlwpath, NAME, PATH,secddt, aaxblock, ident) 
PRINT iwpath, 

RUN getsec(Hpath, aaxblock, BLKND, secdat) (t Pass sector data to getsec t) 
ON ERROR GOTO 1000 
10 f1ETER=BLKN0t256 
iblkno=BLKNO 
COUNT=0 

SEEK iPATH,30 (» Start at byte of LSN ») 
GET #PATH,secdat 

IF 5ecdat(14)»256+5ecdat(15)<>ident THEN 
x=6 \xl=40 \y=B \yl=8 



IF CHOICE=''D" OR CHOICE=''d" THEN 

x=5 \xl=30 \y=10 \yl=6 

RUN winopen(wpath,x,y,xl,yD 

RUN getdevlwpath, NAHE,PATH,5ecdat, aaxblock, ident) 

RUN getsec(wpath, aaxblock, BLKNO, oecdat) U Pass sector array *) 

GOTO 10 

ENDIF 



PROCEDURE getsec 
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BASE (tUIUUn This line is an addition t) 
PARAM Hpath:BYTE 

PARAM maxblockiREAL ittt laxblock redefined as a real value ») 
PARAH blknorREAL 

PARAM secdat (256) :BYTE (tU Pass values for current sector *) 
DIH hblkno:STRIN6C253 
1 PRINT Iwpath/SECTOR NUMBER Ifltax:*"; 
PRINT #wpath USING "H2>" , secdat (0) ; (» These 3 lines replace ») 
PRINT #wpath USING "H2>'* , secdat <1) ; i* the line beginning with ») 
PRINT #wpath USING "H2>" , secdat (2) -1 ; (t PRINT t«path USINB ... t) 
PRINT twpath/) :"; 
INPUT Iwpath," ",hblkno 
hblknD="$'+hblkno 
ON ERROR 60T0 1 
blknG=VAL(hblkno) 
IF b]kno>saxblock OR blkno<0 THEN 

GOTO 1 
ENDIF 

RUN Hincloselwpath) 
END 

PROCEDURE getdev 

BASE 

ON ERROR 60TQ 10 

PARAH »path:6YTE 

PARAH naffle:STRING[4] 

PARAH path, secdat (256): BYTE 

PARAM maxblock!REAL (* taxblock redefined as a real value I) 

PARAH i dent: INTEGER 
5 INPUT iwpath/RBF Device Nane : %naffie 

IF LEFT* (naiie,! )<>%'" THEN 
nafie="/''+naffle 

ENDIF 

IF RI5HT$(naie,l)<>^e" THEN 
naffle=naae+"§'' 

ENDIF 

OPEN #path,naiB 

SEEK ipath,0 «*** Change seek byte to the start of LSNO t) 

SET #path, secdat 

iiaxblock=secdat (0) *65536 .+5ecdat(l)*256+5ecdat(2)-l it Deteriine value t) 

ident=secdat(14)t256+5ecdat(15) (t using all 3 bytes *) 

END {* of DD.TOT *) 

10 PRINT #wpath,"tU - DEVICE NAME REQUIRED" 

GOTO 5 
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